var
str: String;
i, l, max: Integer;
sim: Char;
Begin
Writeln('Input a string.');
Readln(str);
sim := str[1];
l := 1;
max := 1 {or 0};
For i := 2 to length(str) do
if str[i] = sim then
l := l + 1
else
begin
sim := str[i];
if max < l then
max := l;
l := 1;
end;
if max < l then
max := l;
Writeln('Max length is ', max, '.');
End.